home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / Mesa-2.2 / amiga / AmigaMesa.Install < prev    next >
Encoding:
Text File  |  1997-06-25  |  2.9 KB  |  111 lines
  1. ; $VER: AmigaMesa.install 1.00 (07.09.96)
  2. ; Install script for AmigaMesa
  3. ;
  4. (COMPLETE 0)
  5. ;(USER 2)
  6. (SET #ApplicationName "AmigaMesa")
  7. (SET @default-dest "/")
  8. ;(SET @default-dest "ram:")
  9. (SET #ArchiveDir "")
  10.  
  11. (set #source-dir
  12.  (if (= 1 (exists @icon))
  13.   (pathonly (expandpath @icon))
  14.   (expandpath @icon)
  15.  )
  16. )
  17.  
  18.  
  19. ;=============================================================================
  20. ; English strings
  21.  
  22. (SET #App-InstallMsg
  23. (CAT "\n\%s installation script.\n"
  24.       "This script installs %s on your Amiga.\n\n"
  25.         "SORRY But for now beeing everyting is hardcoded"
  26. ))
  27.  
  28. (SET #App-Where
  29. (CAT "Where would you like to install %s ?\n"
  30.         "(All amiga files will be updated)"
  31. ))
  32. (SET #APP-Where-help 
  33. (CAT "The installation is by defult to your mesa archive (Eg to /)\n"
  34.         "It will unlha an archive to the directory you chose and "
  35.         "update all files in the structure\n"
  36.         "If I'ts your first time you install you should just continue "
  37.         "But is you are updating your amigamesa with new files "
  38.         "AND for some reason want to keep your OLD amigamesa you could "
  39.         "install the files to RAM: and the copy them to the neaded directory "
  40.         "by yourself"
  41. ))
  42.  
  43.  
  44. ;----------------------------------------------------------------------------
  45. ;----------------------------------------------------------------------------
  46. ;    GetApplicationDir
  47. ;----------------------------------------------------------------------------
  48. ;----------------------------------------------------------------------------
  49. (PROCEDURE P_GetApplicationDir #Dummy
  50.  
  51. (SET @default-dest
  52.         (TACKON
  53.                 (ASKDIR
  54.                         (PROMPT (#App-Where #ApplicationName))
  55.                         (HELP #APP-Where-help)
  56.                         (default #Dummy)
  57.                 )
  58.                 ""
  59.         )
  60. )
  61. ) ;PROCEDURE
  62.  
  63. (procedure P_select-destination-directory
  64.  (transcript "Selecting destination directory for the installation.")
  65.  (while
  66.   (
  67.     (set @default-dest
  68.      (askdir
  69.      (PROMPT (#App-Where #ApplicationName))
  70.  
  71.       (HELP #APP-Where-help)
  72.       (newpath)
  73.       (default #source-dir)
  74.      )
  75.     )
  76.     (if (= 2 (exists @default-dest))
  77.      0
  78.      (makedir @default-dest
  79.       (infos)
  80.      )
  81.     )
  82.   )
  83.  )
  84. )
  85.  
  86. ;----------------------------------------------------------------------------
  87. ;----------------------------------------------------------------------------
  88. ;    MAIN
  89. ;----------------------------------------------------------------------------
  90. ;----------------------------------------------------------------------------
  91. ;(P_Requirements)
  92. (message (#App-installmsg #ApplicationName #ApplicationName #ApplicationName #ApplicationName))
  93. (welcome)
  94.  
  95. ;(P_select-destination-directory)
  96. ;(SET #ApplicationDir (P_GetApplicationDir @default-dest))
  97.  
  98. (message ("Pressing Proceed now will update your AmigaMesa"))
  99. ;  (pathonly (expandpath @default-dest))
  100. ; (expandpath @default-dest)
  101.  
  102. (working "Uncompressing all files")
  103. (run (cat "lha x -a " (tackon #ArchiveDir "amesa.lha ") @default-dest ))
  104.  
  105.  
  106. (COMPLETE 99)
  107.  
  108. (COMPLETE 100)
  109.  
  110. ;(exit #App-exit)
  111.